|
600
|
How can I display minutes
local oG2antt,var_Level,var_Level1
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.UnitWidth = 64
// oG2antt.Chart.Level(0).Label = 65536
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
TemplateDef = [dim var_Level]
TemplateDef = var_Level
Template = [var_Level.Label = 65536]
endwith
// oG2antt.Chart.Level(1).Label = 1048576
var_Level1 = oG2antt.Chart.Level(1)
with (oG2antt)
TemplateDef = [dim var_Level1]
TemplateDef = var_Level1
Template = [var_Level1.Label = 1048576]
endwith
|
|
599
|
How can I display seconds, from 15 to 15
local oG2antt,var_Level,var_Level1
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.FirstVisibleDate = "00:00"
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).Label = 1048576
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
TemplateDef = [dim var_Level]
TemplateDef = var_Level
Template = [var_Level.Label = 1048576]
endwith
var_Level1 = oG2antt.Chart.Level(1)
var_Level1.Label = "<%ss%>"
var_Level1.Count = 15
|
|
598
|
How can I display seconds
local oG2antt,var_Level,var_Level1
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).Label = 1048576
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
TemplateDef = [dim var_Level]
TemplateDef = var_Level
Template = [var_Level.Label = 1048576]
endwith
// oG2antt.Chart.Level(1).Label = "<%ss%>"
var_Level1 = oG2antt.Chart.Level(1)
with (oG2antt)
TemplateDef = [dim var_Level1]
TemplateDef = var_Level1
Template = [var_Level1.Label = "<%ss%>"]
endwith
|
|
597
|
How can I display seconds
local oG2antt,var_Level,var_Level1
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).Label = 1048576
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
TemplateDef = [dim var_Level]
TemplateDef = var_Level
Template = [var_Level.Label = 1048576]
endwith
// oG2antt.Chart.Level(1).Label = 16777216
var_Level1 = oG2antt.Chart.Level(1)
with (oG2antt)
TemplateDef = [dim var_Level1]
TemplateDef = var_Level1
Template = [var_Level1.Label = 16777216]
endwith
|
|
596
|
How can I align the text being shown in the chart's header
local oG2antt,var_Level
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.UnitWidth = 64
var_Level = oG2antt.Chart.Level(0)
var_Level.Label = "<b><%mmmm%></b> <r><%m%>"
var_Level.Unit = 16
var_Level.Alignment = 0
|
|
595
|
How can I hide the tooltip being displayed in the chart's header
local oG2antt,var_Level
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.Level(0).ToolTip = ""
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
TemplateDef = [dim var_Level]
TemplateDef = var_Level
Template = [var_Level.ToolTip = ""]
endwith
|
|
594
|
How can I change the tooltip being displayed in the chart's header
local oG2antt,var_Level
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.Level(0).ToolTip = "This is a bit of text that's shown when the cursor hovers the level"
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
TemplateDef = [dim var_Level]
TemplateDef = var_Level
Template = [var_Level.ToolTip = "This is a bit of text that's shown when the cursor hovers the level"]
endwith
|
|
593
|
How can I change the visual appearance of the chart's header, where levels are displayed, using your EBN files
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.VisualAppearance.Add(1,"c:\exontrol\images\normal.ebn")
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.BackColorLevelHeader = 0x1000000
|
|
592
|
How can I change the level's foreground color in the chart
local oG2antt,var_Level,var_Level1
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).ForeColor = 0xff
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
TemplateDef = [dim var_Level]
TemplateDef = var_Level
Template = [var_Level.ForeColor = 255]
endwith
// oG2antt.Chart.Level(1).ForeColor = 0xff0000
var_Level1 = oG2antt.Chart.Level(1)
with (oG2antt)
TemplateDef = [dim var_Level1]
TemplateDef = var_Level1
Template = [var_Level1.ForeColor = 16711680]
endwith
|
|
591
|
How can I change the level's background color in the chart
local oG2antt,var_Level
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(0).BackColor = 0xff
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
TemplateDef = [dim var_Level]
TemplateDef = var_Level
Template = [var_Level.BackColor = 255]
endwith
|
|
590
|
How can I save data on XML format
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.LoadXML("http://www.exontrol.net/testing.xml")
oG2antt.SaveXML("c:/temp/exg2antt.xml")
|
|
589
|
How can I load data on XML format
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.LoadXML("http://www.exontrol.net/testing.xml")
|
|
588
|
How can I add icons or pictures to the scale or zoom area
local oG2antt,var_Chart,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oG2antt.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oG2antt.Chart
var_Chart.OverviewHeight = 48
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = -1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img> Week|Third|<img>2</img> Day|<img>pic1</img>|Hour|Min|Sec"
// var_Chart.Label(0) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(0) = ""]
endwith
// var_Chart.Label(1) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(1) = ""]
endwith
// var_Chart.Label(2) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(2) = ""]
endwith
// var_Chart.Label(17) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(17) = ""]
endwith
// var_Chart.Label(65536) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(65536) = ""]
endwith
// var_Chart.Label(1048576) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(1048576) = ""]
endwith
// var_Chart.Label(16777216) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(16777216) = ""]
endwith
var_Chart.OverviewZoomUnit = 52
oG2antt.Columns.Add("")
var_Items = oG2antt.Items
// var_Items.CellSingleLine(var_Items.AddItem("Right click the Overview area and select a new scale"),0) = false
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellSingleLine(AddItem("Right click the Overview area and select a new scale"),0) = False]
endwith
|
|
587
|
How can I add icons or pictures to the scale or zoom area
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Template = [HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"] // oG2antt.HTMLPicture("pic1") = "c:\exontrol\images\zipdisk.gif"
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oG2antt.Chart
var_Chart.OverviewHeight = 48
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img> Week|Third|<img>2</img> Day|<img>pic1</img>|Hour|Min|Sec"
// var_Chart.Label(0) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(0) = ""]
endwith
// var_Chart.Label(1) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(1) = ""]
endwith
// var_Chart.Label(2) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(2) = ""]
endwith
// var_Chart.Label(17) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(17) = ""]
endwith
// var_Chart.Label(65536) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(65536) = ""]
endwith
// var_Chart.Label(1048576) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(1048576) = ""]
endwith
// var_Chart.Label(16777216) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(16777216) = ""]
endwith
var_Chart.OverviewZoomUnit = 52
|
|
586
|
How can I change the width of the unit in the scale or zoom
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oG2antt.Chart
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>|Third|<img>2</img>|<img>1</img>|Hour|Min|Sec"
// var_Chart.Label(0) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(0) = ""]
endwith
// var_Chart.Label(1) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(1) = ""]
endwith
// var_Chart.Label(2) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(2) = ""]
endwith
// var_Chart.Label(17) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(17) = ""]
endwith
// var_Chart.Label(65536) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(65536) = ""]
endwith
// var_Chart.Label(1048576) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(1048576) = ""]
endwith
// var_Chart.Label(16777216) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(16777216) = ""]
endwith
var_Chart.OverviewZoomUnit = 24
|
|
585
|
How can I a scale or zoom of the chart, when right clicking the chart's header
local oG2antt,var_Chart,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oG2antt.Chart
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = -1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
// var_Chart.Label(0) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(0) = ""]
endwith
// var_Chart.Label(1) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(1) = ""]
endwith
// var_Chart.Label(2) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(2) = ""]
endwith
// var_Chart.Label(17) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(17) = ""]
endwith
// var_Chart.Label(65536) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(65536) = ""]
endwith
// var_Chart.Label(1048576) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(1048576) = ""]
endwith
// var_Chart.Label(16777216) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(16777216) = ""]
endwith
var_Chart.OverviewZoomUnit = 64
oG2antt.Columns.Add("")
var_Items = oG2antt.Items
// var_Items.CellSingleLine(var_Items.AddItem("Right click the Overview area and select a new scale"),0) = false
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellSingleLine(AddItem("Right click the Overview area and select a new scale"),0) = False]
endwith
|
|
584
|
How can I a customize the scale or zoom of the chart
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oG2antt.Chart
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "Year|½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
// var_Chart.Label(0) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(0) = ""]
endwith
// var_Chart.Label(1) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(1) = ""]
endwith
// var_Chart.Label(2) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(2) = ""]
endwith
// var_Chart.Label(17) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(17) = ""]
endwith
// var_Chart.Label(65536) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(65536) = ""]
endwith
// var_Chart.Label(1048576) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(1048576) = ""]
endwith
// var_Chart.Label(16777216) = ""
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.Label(16777216) = ""]
endwith
var_Chart.OverviewZoomUnit = 64
|
|
583
|
How can I a scale or zoom the chart at runtime
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
var_Chart = oG2antt.Chart
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomCaption = "½Year|¼Year|<img>3</img>Month|Third|<img>2</img>Week|<img>1</img>Day|Hour|Min|Sec"
|
|
582
|
How can I a scale or zoom the chart at runtime
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
var_Chart = oG2antt.Chart
var_Chart.OverviewVisible = 2
var_Chart.AllowOverviewZoom = 1
var_Chart.OverviewZoomUnit = 24
|
|
581
|
How can I a programmatically select a date
local oG2antt,var_Chart,var_Chart1
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.MarkSelectDateColor = 0xff
oG2antt.Chart.SelectLevel = 0
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
// oG2antt.Chart.SelectDate("01/02/2001") = true
var_Chart = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.SelectDate(#1/2/2001#) = True]
endwith
// oG2antt.Chart.SelectDate("01/05/2001") = true
var_Chart1 = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart1]
TemplateDef = var_Chart1
Template = [var_Chart1.SelectDate(#1/5/2001#) = True]
endwith
|
|
580
|
How can I change the color to select a date, when clicking the chart's header
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.BackColor = 0xffffff
oG2antt.Chart.MarkSelectDateColor = 0xff
|
|
579
|
How can I enable or disable selecting a date, when clicking the chart's header
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.BackColor = 0xffffff
oG2antt.Chart.MarkSelectDateColor = 0xffffff
|
|
578
|
How can I specify the color or the stype for non working hours
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.UnitScale = 65536
// oG2antt.Chart.PaneWidth(false) = 0
var_Chart = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.PaneWidth(False) = 0]
endwith
oG2antt.Chart.NonworkingHours = 127
oG2antt.Chart.NonworkingHoursPattern = 12
oG2antt.Chart.NonworkingHoursColor = 0xff
|
|
577
|
How can I specify the pattern or the stype for non working hours
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.UnitScale = 65536
// oG2antt.Chart.PaneWidth(false) = 0
var_Chart = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.PaneWidth(False) = 0]
endwith
oG2antt.Chart.NonworkingHours = 127
oG2antt.Chart.NonworkingHoursPattern = 7
|
|
576
|
How can I specify the non working hours
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.UnitScale = 65536
// oG2antt.Chart.PaneWidth(false) = 0
var_Chart = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.PaneWidth(False) = 0]
endwith
oG2antt.Chart.NonworkingHours = 127
|
|
575
|
How can I get the index of the level from the point or cursor
local oG2antt,var_LevelFromPoint
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
var_LevelFromPoint = oG2antt.Chart.LevelFromPoint(0,0)
|
|
574
|
How can I get the link from the point or cursor
local oG2antt,var_LinkFromPoint
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
var_LinkFromPoint = oG2antt.Chart.LinkFromPoint(0,0)
|
|
573
|
How can I disable or enable at runtime linking the bars
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.AllowLinkBars = true
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001","B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task","01/06/2001","01/14/2001","B2")
|
|
572
|
How can I check or verify if a date is a non working day
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add(Str(oG2antt.Chart.IsNonworkingDate("01/01/2001")))
|
|
571
|
How can I check or verify if a date fits the chart's visible area
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add(Str(oG2antt.Chart.IsDateVisible("01/01/2001")))
|
|
570
|
How can I add a remove all non working days
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.NonworkingDays = 0
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Chart.AddNonworkingDate("01/01/2001")
oG2antt.Chart.ClearNonworkingDates()
|
|
569
|
How can I add a remove a non working days
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.NonworkingDays = 0
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Chart.AddNonworkingDate("01/01/2001")
oG2antt.Chart.RemoveNonworkingDate("01/01/2001")
|
|
568
|
How can I add a custom non working days
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.NonworkingDays = 0
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Chart.AddNonworkingDate("01/01/2001")
oG2antt.Chart.AddNonworkingDate("01/05/2001")
|
|
567
|
How can hide the non working days
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.ShowNonworkingDates = false
|
|
566
|
How can hide the non working days
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.NonworkingDays = 0
|
|
565
|
How can I let user adds new bars at runtime
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.AllowCreateBar = 1
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddItem("Item 1")
var_Items.AddItem("Item 2")
|
|
564
|
How can I change the width of the links between bars
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LinksStyle = 0
oG2antt.Chart.LinksWidth = 2
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001","B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task","01/06/2001","01/14/2001","B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
|
|
563
|
How can I change the style for the links between bars
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LinksStyle = 4
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001","B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task","01/06/2001","01/14/2001","B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
|
|
562
|
How can I change the color for the links between bars
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LinksColor = 0xff
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001","B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task","01/06/2001","01/14/2001","B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
|
|
561
|
How can I hide the links between bars
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001","B1")
var_Items.AddBar(var_Items.AddItem("Item 2"),"Task","01/06/2001","01/14/2001","B2")
var_Items.AddLink("L1",var_Items.FindItem("Item 1",0),"B1",var_Items.FindItem("Item 2",0),"B2")
oG2antt.Chart.ShowLinks = false
|
|
560
|
How can I display some grid line in the overview area
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.OverviewLevelLines = 0
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/06/2001","01/14/2001")
|
|
559
|
How do I change the tooltip when the cursor hovers the overview area
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.OverviewToolTip = "Tooltip on the overview"
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/06/2001","01/14/2001")
|
|
558
|
How do I remove the tooltip when the cursor hovers the overview area
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.OverviewToolTip = ""
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
|
|
557
|
How do I change the selection color in the overview area
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.OverviewSelBackColor = 0xff
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
|
|
556
|
How do I change the background color for the overview area
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.OverviewBackColor = 0xff
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
|
|
555
|
How do I specify the height for the overview area
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.OverviewHeight = 16
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
|
|
554
|
How do I show or hide the control's overview area
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.OverviewVisible = 2
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"Task","01/02/2001","01/04/2001")
|
|
553
|
How do I enable or disable resizing the bars at runtime
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.BarsAllowSizing = false
|
|
552
|
How do I get the bar from the point or cursor
/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button,Shift,X,Y)
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
? Str(oG2antt.ItemFromPoint(-1,-1,c,h))
? Str(oG2antt.Chart.BarFromPoint(-1,-1))
return
local h1,h2,h3,oG2antt,var_Chart,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.BeginUpdate()
oG2antt.Columns.Add("Task")
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = "12/29/2000"
// var_Chart.PaneWidth(false) = 64
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.PaneWidth(False) = 64]
endwith
var_Chart.LevelCount = 2
var_Items = oG2antt.Items
h1 = var_Items.AddItem("Task 1")
var_Items.AddBar(h1,"Task","01/02/2001","01/04/2001","K1")
h2 = var_Items.AddItem("Task 2")
var_Items.AddBar(h2,"Task","01/04/2001","01/06/2001","K2")
var_Items.AddLink("L1",h1,"K1",h2,"K2")
h3 = var_Items.AddItem("Task 3")
var_Items.AddBar(h3,"Task","01/08/2001","01/10/2001","K3")
var_Items.AddLink("L2",h2,"K2",h3,"K3")
oG2antt.EndUpdate()
|
|
551
|
How do I specify the color of pattern for non working days
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.NonworkingDays = 66
oG2antt.Chart.NonworkingDaysPattern = 8
oG2antt.Chart.NonworkingDaysColor = 0xff
|
|
550
|
How do I specify the type of pattern for non working days
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.NonworkingDays = 66
oG2antt.Chart.NonworkingDaysPattern = 11
|
|
549
|
How do I specify the non working days
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.NonworkingDays = 66
|
|
548
|
How do I specify the non working days
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.NonworkingDays = 66
|
|
547
|
How do I add a predefined bar
local oG2antt,var_Bar,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.Bars.Add("CustomBar").Color = 0xff
var_Bar = oG2antt.Chart.Bars.Add("CustomBar")
with (oG2antt)
TemplateDef = [dim var_Bar]
TemplateDef = var_Bar
Template = [var_Bar.Color = 255]
endwith
oG2antt.Chart.FirstVisibleDate = "01/01/2001"
oG2antt.Columns.Add("Column")
var_Items = oG2antt.Items
var_Items.AddBar(var_Items.AddItem("Item 1"),"CustomBar","01/02/2001","01/04/2001")
|
|
546
|
How do I change the unit being displayed in the chart
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.PaneWidth(false) = 0
var_Chart = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.PaneWidth(False) = 0]
endwith
oG2antt.Chart.UnitScale = 256
oG2antt.Chart.UnitWidth = 64
|
|
545
|
How do I specify the prodefined tooltip being shown on the chart's header, when Zoom method is used
local oG2antt,var_Chart,var_Chart1,var_Chart2,var_Chart3,var_Chart4
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.PaneWidth(false) = 0
var_Chart = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.PaneWidth(False) = 0]
endwith
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Label(1) = ""
var_Chart1 = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart1]
TemplateDef = var_Chart1
Template = [var_Chart1.Label(1) = ""]
endwith
// oG2antt.Chart.Label(2) = ""
var_Chart2 = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart2]
TemplateDef = var_Chart2
Template = [var_Chart2.Label(2) = ""]
endwith
// oG2antt.Chart.Label(16) = "<%m3%>"
var_Chart3 = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart3]
TemplateDef = var_Chart3
Template = [var_Chart3.Label(16) = "<%m3%>"]
endwith
// oG2antt.Chart.LabelToolTip(16) = "Tooltip: <%mmmm%>"
var_Chart4 = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart4]
TemplateDef = var_Chart4
Template = [var_Chart4.LabelToolTip(16) = "Tooltip: <%mmmm%>"]
endwith
oG2antt.Chart.Zoom("01/01/2007","01/01/2008")
oG2antt.Chart.FirstVisibleDate = "01/01/2007"
|
|
544
|
How do I specify the prodefined labels being displayed on the chart, when Zoom method is used
local oG2antt,var_Chart,var_Chart1,var_Chart2,var_Chart3
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.PaneWidth(false) = 0
var_Chart = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.PaneWidth(False) = 0]
endwith
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Label(1) = ""
var_Chart1 = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart1]
TemplateDef = var_Chart1
Template = [var_Chart1.Label(1) = ""]
endwith
// oG2antt.Chart.Label(2) = ""
var_Chart2 = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart2]
TemplateDef = var_Chart2
Template = [var_Chart2.Label(2) = ""]
endwith
// oG2antt.Chart.Label(16) = "<%m3%>"
var_Chart3 = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart3]
TemplateDef = var_Chart3
Template = [var_Chart3.Label(16) = "<%m3%>"]
endwith
oG2antt.Chart.Zoom("01/01/2007","01/01/2008")
oG2antt.Chart.FirstVisibleDate = "01/01/2007"
|
|
543
|
How do I scale or zoom the chart to a specified range of date
local oG2antt,var_Chart,var_Chart1,var_Chart2,var_Chart3
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.PaneWidth(false) = 0
var_Chart = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.PaneWidth(False) = 0]
endwith
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Label(1) = ""
var_Chart1 = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart1]
TemplateDef = var_Chart1
Template = [var_Chart1.Label(1) = ""]
endwith
// oG2antt.Chart.Label(2) = ""
var_Chart2 = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart2]
TemplateDef = var_Chart2
Template = [var_Chart2.Label(2) = ""]
endwith
// oG2antt.Chart.Label(16) = "<%m3%>"
var_Chart3 = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart3]
TemplateDef = var_Chart3
Template = [var_Chart3.Label(16) = "<%m3%>"]
endwith
oG2antt.Chart.Zoom("01/01/2007","01/01/2008")
oG2antt.Chart.FirstVisibleDate = "01/01/2007"
|
|
542
|
How do I scale or zoom the chart to a specified range of date
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.PaneWidth(false) = 0
var_Chart = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.PaneWidth(False) = 0]
endwith
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.Zoom("01/01/2007","07/01/2007")
oG2antt.Chart.FirstVisibleDate = "01/01/2007"
|
|
541
|
How do I find the next date or previous date
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
var_Chart = oG2antt.Chart
var_Chart.FirstVisibleDate = var_Chart.NextDate("01/01/2002",4096,1)
|
|
540
|
How can I change the color for the grid lines in the chart
local oG2antt,var_Level
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.DrawGridLines = -1
oG2antt.Chart.LevelCount = 2
var_Level = oG2antt.Chart.Level(1)
var_Level.DrawGridLines = true
var_Level.GridLineColor = 0xff
|
|
539
|
How can I draw, show or hide the grid lines in the chart
local oG2antt,var_Level
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.DrawGridLines = -1
oG2antt.Chart.LevelCount = 2
// oG2antt.Chart.Level(1).DrawGridLines = true
var_Level = oG2antt.Chart.Level(1)
with (oG2antt)
TemplateDef = [dim var_Level]
TemplateDef = var_Level
Template = [var_Level.DrawGridLines = True]
endwith
|
|
538
|
How do I change the color to highlight the today in the chart
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.MarkTodayColor = 0xff
|
|
537
|
How do I hide or stop highlighting the today area in the chart
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
var_Chart = oG2antt.Chart
var_Chart.MarkTodayColor = var_Chart.BackColor
|
|
536
|
Is there any function to get the date in the format that I use for levels, to layout my chart's header
local h,oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
h = oG2antt.Chart.FormatDate("01/01/2002","<%yyyy%> <%mmmm%> <%d%> <%dddd%>")
oG2antt.Columns.Add(Str(h))
|
|
535
|
How can I get the date from the point, cursor
/*
with (this.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject)
MouseMove = class::nativeObject_MouseMove
endwith
*/
// Occurs when the user moves the mouse.
function nativeObject_MouseMove(Button,Shift,X,Y)
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
? Str(oG2antt.Chart.DateFromPoint(-1,-1))
return
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
|
|
534
|
How can I show or hide the small ticker that shows up when the cursor hovers the chart area
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.DrawDateTicker = true
|
|
533
|
How can I change the first visible date in the chart
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.FirstVisibleDate = "01/01/2002"
|
|
532
|
How can I scroll or ensure that a specified date time is visible in the chart
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.FirstVisibleDate = "01/01/2002"
|
|
531
|
How can I scroll or ensure that a specified date time is visible to the right side of the chart or control
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.ScrollTo("01/01/2002",2)
|
|
530
|
How can I scroll or ensure that a specified date time is visible
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.ScrollTo("01/01/2002",2)
|
|
529
|
How can I show or hide the the tooltip being shown when the user scrolls the chart
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.ToolTip = ""
|
|
528
|
How can I change the format of the tooltip when the user scrolls the chart
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.ToolTip = "ToolTip: <b><%dddd%></b>"
|
|
527
|
How can I hide the chart's scroll bar
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.ScrollBar = false
|
|
526
|
How can I specify the first day of the week
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
oG2antt.Chart.FirstWeekDay = 1
|
|
525
|
How do I change the AM or PM shortcuts in the chart's header
local oG2antt,var_Level
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.UnitWidth = 64
oG2antt.Chart.AMPM = "A P"
var_Level = oG2antt.Chart.Level(0)
var_Level.Label = "<%h%> <%AM/PM%>"
var_Level.Unit = 65536
|
|
524
|
How do I change the name for the months, being displayed in the chart's header
local oG2antt,var_Level
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.UnitWidth = 64
oG2antt.Chart.MonthNames = "Ianuarie Februarie Martie Aprilie Mai Iunie Iulie August Septembrie Octombrie Noiembrie Decembrie"
var_Level = oG2antt.Chart.Level(0)
var_Level.Label = "<b><%mmmm%></b>"
var_Level.Unit = 16
|
|
523
|
How do I change the name for the week days, being displayed in the chart's header
local oG2antt,var_Level
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.UnitWidth = 64
oG2antt.Chart.WeekDays = "Duminica Luni Marti Miercuri Joi Vineri Simbata"
// oG2antt.Chart.Level(0).Label = "<b><%mm%></b>/<%dddd%>"
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
TemplateDef = [dim var_Level]
TemplateDef = var_Level
Template = [var_Level.Label = "<b><%mm%></b>/<%dddd%>"]
endwith
|
|
522
|
How do I access a level in the chart's header
local oG2antt,var_Level
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.UnitWidth = 64
// oG2antt.Chart.Level(0).Label = "<b><%mm%></b>/<%dd%>"
var_Level = oG2antt.Chart.Level(0)
with (oG2antt)
TemplateDef = [dim var_Level]
TemplateDef = var_Level
Template = [var_Level.Label = "<b><%mm%></b>/<%dd%>"]
endwith
|
|
521
|
How can I change the color for the grid lines between the leves in the chart's header
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.GridLineColor = 0xff
oG2antt.Chart.LevelCount = 2
|
|
520
|
How can I show or hide the grid lines between the leves in the chart's header
local oG2antt,var_Chart,var_Level,var_Level1
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.GridLineColor = 0xff
var_Chart = oG2antt.Chart
var_Chart.LevelCount = 2
// var_Chart.Level(0).DrawTickLines = false
var_Level = var_Chart.Level(0)
with (oG2antt)
TemplateDef = [dim var_Level]
TemplateDef = var_Level
Template = [var_Level.DrawTickLines = False]
endwith
// var_Chart.Level(1).DrawTickLines = false
var_Level1 = var_Chart.Level(1)
with (oG2antt)
TemplateDef = [dim var_Level1]
TemplateDef = var_Level1
Template = [var_Level1.DrawTickLines = False]
endwith
|
|
519
|
How do I change the foreground color for the chart's header
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.ForeColorLevelHeader = 0xff
|
|
518
|
How do I change the background color for the chart's header
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.BackColorLevelHeader = 0xff
|
|
517
|
How do I specify the chart's foreground color
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.ForeColor = 0xff
|
|
516
|
How do I specify the chart's background color
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.BackColor = 0xff
|
|
515
|
How do I put a picture on the center of the chart
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 17
|
|
514
|
How do I resize/stretch a picture on the chart's background
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 49
|
|
513
|
How do I put a picture on the chart's center right bottom side
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 34
|
|
512
|
How do I put a picture on the chart's center left bottom side
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 32
|
|
511
|
How do I put a picture on the chart's center top side
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 1
|
|
510
|
How do I put a picture on the chart's right top corner
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 2
|
|
509
|
How do I put a picture on the chart's left top corner
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
oG2antt.Chart.PictureDisplay = 0
|
|
508
|
How do I put a picture on the chart's background
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.Picture = oG2antt.ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)")
|
|
507
|
How to specify the width for the left or side pane
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.PaneWidth(false) = 128
var_Chart = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.PaneWidth(False) = 128]
endwith
|
|
506
|
How do I display the header of the chart using multiple levels, lines
local oG2antt
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.Chart.LevelCount = 2
|
|
505
|
How do change the width of the chart's area
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.PaneWidth(true) = 256
var_Chart = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.PaneWidth(True) = 256]
endwith
|
|
504
|
How do I show or hide the control's chart area
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.PaneWidth(true) = 0
var_Chart = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.PaneWidth(True) = 0]
endwith
|
|
503
|
How do I access the chart's area of the control
local oG2antt,var_Chart
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
// oG2antt.Chart.PaneWidth(false) = 64
var_Chart = oG2antt.Chart
with (oG2antt)
TemplateDef = [dim var_Chart]
TemplateDef = var_Chart
Template = [var_Chart.PaneWidth(0) = 64]
endwith
|
|
502
|
How can I select a cells like in excel
local oG2antt,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.SingleSel = false
oG2antt.FullRowSelect = 1
oG2antt.MarkSearchColumn = false
oG2antt.SearchColumnIndex = -1
oG2antt.Columns.Add("Column1")
oG2antt.Columns.Add("Column2")
oG2antt.Columns.Add("Column3")
var_Items = oG2antt.Items
var_Items.DefaultItem = var_Items.AddItem(0)
// var_Items.CellValue(0,1) = 1
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellValue(0,1) = 1]
endwith
// var_Items.CellValue(0,2) = 2
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellValue(0,2) = 2]
endwith
var_Items.DefaultItem = var_Items.AddItem(3)
// var_Items.CellValue(0,1) = 4
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellValue(0,1) = 4]
endwith
// var_Items.CellValue(0,2) = 5
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellValue(0,2) = 5]
endwith
var_Items.DefaultItem = var_Items.AddItem(6)
// var_Items.CellValue(0,1) = 7
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellValue(0,1) = 7]
endwith
// var_Items.CellValue(0,2) = 8
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellValue(0,2) = 8]
endwith
|
|
501
|
How can I select a multiple column
local oG2antt,var_Column,var_Column1,var_Items
oG2antt = form.EXG2ANTTCHARTACTIVEXCONTROL1.nativeObject
oG2antt.MarkSearchColumn = false
oG2antt.SingleSel = false
oG2antt.FullRowSelect = 1
// oG2antt.Columns.Add("Column1").Selected = true
var_Column = oG2antt.Columns.Add("Column1")
with (oG2antt)
TemplateDef = [dim var_Column]
TemplateDef = var_Column
Template = [var_Column.Selected = True]
endwith
oG2antt.Columns.Add("Column2")
// oG2antt.Columns.Add("Column3").Selected = true
var_Column1 = oG2antt.Columns.Add("Column3")
with (oG2antt)
TemplateDef = [dim var_Column1]
TemplateDef = var_Column1
Template = [var_Column1.Selected = True]
endwith
var_Items = oG2antt.Items
var_Items.DefaultItem = var_Items.AddItem(0)
// var_Items.CellValue(0,1) = 1
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellValue(0,1) = 1]
endwith
// var_Items.CellValue(0,2) = 2
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellValue(0,2) = 2]
endwith
var_Items.DefaultItem = var_Items.AddItem(3)
// var_Items.CellValue(0,1) = 4
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellValue(0,1) = 4]
endwith
// var_Items.CellValue(0,2) = 5
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellValue(0,2) = 5]
endwith
var_Items.DefaultItem = var_Items.AddItem(6)
// var_Items.CellValue(0,1) = 7
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellValue(0,1) = 7]
endwith
// var_Items.CellValue(0,2) = 8
with (oG2antt)
TemplateDef = [dim var_Items]
TemplateDef = var_Items
Template = [var_Items.CellValue(0,2) = 8]
endwith
oG2antt.Items.SelectAll()
|